home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 4 #11
/
Commodore_Disk_User_Vol.4_11_1991_-.d64
/
oxo winner
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
911b
|
17 lines
0 data1024,-1,1026,-2,1028,0,1108,2,1188,1,1186,0,1184,0,1104,0,1106,0
1 foro=0to8:ready(o),m(o):nexto:f$(1)="[144][201] win!":f$(2)="[144][201]t's a draw."
2 poke53280,11:poke53281,11:print"[144][147]0[221]1[221]2"," [212][197][195][200][206][207]-[201][206][198][207] [195][200][193][204][204][197][206][199][197] 2"
3 print"[192][219][192][219][192]":print"7[221]8[221]3",,"[157][157][212]ic-tac-toe":print"[192][219][192][219][192]":print"6[221]5[221]4","[208]aul ";
4 print"[199]ander 28 [202]une 1991":foro=0to8:z(o)=0:pokey(o)+54272,12:nexto
5 input"[145][196]o you want first go";a$:on1-(a$="y")-(a$="n")*2goto5,8:o=0:gosub11
6 gosub10:o=4-(o=4)*2:gosub11:forc=1to3:gosub10:n=2:gosub12:ifs=2thennextc
7 printf$(s):input"[208]ress return to play again.[151]";a$:goto2
8 gosub10:r=oand6:o=8*-(o<>8):gosub11:gosub10:n=o-(4+r-o)+(o=4+r)and7:gosub12
9 onsgoto7:gosub10:n=o+2and7:gosub12:onsgoto7:gosub10:n=o+r+4and7:gosub12:goto7
10 a=1:input"[145][215]here would you like to go";o:ifo<0oro>8orz(o+(o>8)*o)>0then10
11 z(o)=a+1:pokey(o)+54272,a:pokey(o),79+9*a:a=0:return
12 fors=1to2:forp=0to7:on1-(z(p)=s)goto15:on2-(pand1)goto14
13 fort=0to4:o=p+t-2and7:on2+(z(p+m(t)and7)=sandz(o)=0)goto11:nextt
14 o=p+4and7:on2+(z(8)=sandz(o)=0)goto11:o=8:on2+(z(p+4and7)=sandz(8)=0)goto11
15 nextp:nexts:s=2:o=n:goto11